Application.ModelessCmd("g6")
Application.ModelessCmd("gd6")
Application.StatusBarText = "Set Grids = 6"